﻿#include "Unit1.h"
#include "Math.h"

// ---------------------------------------------------------------------------

// ---------------------------------------------------------------------------
// Круг
// ---------------------------------------------------------------------------
void __fastcall TForm1::BitBtn1Click(TObject *Sender) {
	double R;
	R = Edit1->Text.ToDouble();
	if (R==0) {
	}
	else {
	Edit2->Text = (2.0 * M_PI * R); // Окружность
	Edit3->Text = (M_PI * pow(R, 2)); // Площадь круга
	Edit6->Text = (4.0 / 3.0 * M_PI * pow(R, 3)); // Обьём
	Edit7->Text = (4.0 * M_PI * pow(R, 2)); // Площадь шара
	}
	return;
}

void __fastcall TForm1::BitBtn2Click(TObject *Sender) {
	double D,R;
	D = Edit5->Text.ToDouble();
	if (D==0) {
	}
	else {
	R = D / 2.0 ;
	Edit2->Text = 2.0 * M_PI * R; // Окружность
	Edit3->Text = M_PI * pow(R, 2); // Площадь круга
	Edit6->Text = 4.0 / 3.0 * M_PI * pow(R, 3); // Обьём
	Edit7->Text = 4.0 * M_PI * pow(R, 2); // Площадь шара
	}
	return;
}

void __fastcall TForm1::BitBtn3Click(TObject *Sender) {
	double R,α;
	R = Edit1->Text.ToDouble();
	α = Edit8->Text.ToDouble();
	if (R==0) {
	}
	else {
	Edit2->Text = 2.0 * M_PI * R;  // Окружность
	Edit3->Text = M_PI * pow(R, 2);  // Площадь круга
	Edit6->Text = 4.0 / 3.0 * M_PI * pow(R, 3); // Обьём
	Edit7->Text = 4.0 * M_PI * pow(R, 2);   // Площадь шара
	Edit9->Text = (α * pow(R,2)) / 2.0; // Площадь сектора круга
	}
	return;
}

void __fastcall TForm1::BitBtn4Click(TObject *Sender) {
	double E2;
	E2 =  Edit2->Text.ToDouble();
	if (E2==0) {
	}
	else {
	Edit1->Text = E2 / (2.0 * M_PI);
	Edit5->Text = (E2 / (2.0 * M_PI)) * 2.0;
	}
	return;
}

void __fastcall TForm1::BitBtn5Click(TObject *Sender) {
	double E3;
	E3 =  Edit3->Text.ToDouble();
	if (E3==0) {
	}
	else {
	Edit1->Text = pow((E3 / M_PI), 0.5);
	Edit5->Text = pow((E3 / M_PI), 0.5) * 2.0;
	}
	return;
}

void __fastcall TForm1::BitBtn6Click(TObject *Sender) {
	double E6;
	E6 =  Edit6->Text.ToDouble();
	if (E6==0) {
	}
	else {
	Edit1->Text = pow((E6 / (4.0 / 3.0 * M_PI)), 1.0 / 3.0);
	Edit5->Text = 2.0 * (pow((E6 / (4.0 / 3.0 * M_PI)),1.0 / 3.0));
	}
	return;
}

void __fastcall TForm1::BitBtn7Click(TObject *Sender) {
	double E7;
	E7 =  Edit7->Text.ToDouble();
	if (E7==0) {
	}
	else {
	Edit1->Text = (pow(E7 / (4.0 * M_PI), 0.5));
	Edit5->Text = 2.0 * (pow(E7 / (4.0 * M_PI), 0.5));
	}
	return;
}

// ---------------------------------------------------------------------------
// Квадрат
// ---------------------------------------------------------------------------
void __fastcall TForm1::BitBtn8Click(TObject *Sender) {
	double E10;
	E10 = Edit10->Text.ToDouble();
	if (E10==0) {
	}
	else {
	Edit11->Text = 4.0 * E10; // Периметр
	Edit12->Text = pow(E10, 2); // Площадь
	Edit13->Text = pow(2, 1.0 / 2.0) * E10; // Диагональ
	Edit14->Text = E10 / 2.0; // Радиус вписанной окружности
	Edit15->Text = (pow(2, 1.0 / 2.0) / 2) * E10;// Радиус описанной окружности
	}
	return;
}

void __fastcall TForm1::BitBtn9Click(TObject *Sender) {
	double E11 = Edit11->Text.ToDouble() ;
	if (E11 == 0) { ;
	}
	else {
	Edit10->Text = E11 / 4;
	}
	return;
}

void __fastcall TForm1::BitBtn10Click(TObject *Sender) {
	double E12 = Edit12->Text.ToDouble() ;
	if (E12 == 0) { ;
	}
	else {
	Edit10->Text = pow(E12, 1.0 / 2.0);
	}
	return;
}

void __fastcall TForm1::BitBtn11Click(TObject *Sender) {
	double E13 = Edit13->Text.ToDouble() ;
	if (E13 == 0) { ;
	}
	else {
	Edit10->Text = E13 / pow(2, 1.0 / 2.0);
	}
	return;
}

void __fastcall TForm1::BitBtn12Click(TObject *Sender) {
	double E14 = Edit14->Text.ToDouble() ;
	if (E14 == 0) { ;
	}
	else {
	Edit10->Text = E14 * 2.0;
	}
	return;
}

void __fastcall TForm1::BitBtn13Click(TObject *Sender) {
	double E15 = Edit15->Text.ToDouble() ;
	if (E15 == 0) { ;
	}
	else {
	Edit10->Text = E15 / (pow(2, 1.0 / 2.0) / 2.0);
	}
	return;
}

// ---------------------------------------------------------------------------
void __fastcall TForm1::BitBtn17Click(TObject *Sender) {
	double E21,E22;
	E21 = Edit21->Text.ToDouble();
	E22 = Edit22->Text.ToDouble();
	if (E21 == 0) { ;
	}
	else {
	Edit23->Text = E21 * pow(10, E22);
	}
	return;
}

// ---------------------------------------------------------------------------

void __fastcall TForm1::BitBtn20Click(TObject *Sender)	{
	double E31,E32,E31a,E31b,E32a,E31c;
	E31 = Edit31->Text.ToDouble();// Скорость врашения
	E32 = Edit32->Text.ToDouble();// Радиус
	E31a = (E31/3600);
	E31b = (E31 * 1000) / 3600;
	E32a = E32 * 1000;
	E31c = E31 * 1000;
	double CBS1;
	CBS1 = (ComboBox3->ItemIndex * 2) + (ComboBox4->ItemIndex * 5);
	if (CBS1 == 0) {
	Edit33->Text =  (pow (E31a,2.0) ) / E32;
	}
	else if (CBS1 == 5) {
	Edit33->Text = (pow (E31a,2.0) ) / E32a;
	}
	else if (CBS1 == 2) {
	Edit33->Text = (pow (E31,2.0) ) / E32;
	}
	else if (CBS1 == 7) {
	Edit33->Text = (pow (E31,2.0) ) / E32a;
	}
	else if (CBS1 == 4) {
	Edit33->Text = (pow (E31b,2.0) ) / E32;
	}
	else if (CBS1 == 9) {
	Edit33->Text = (pow (E31b,2.0) ) / E32a;
	}
	else if (CBS1 == 6) {
	Edit33->Text = (pow (E31c,2.0) ) / E32;
	}
	else if (CBS1 == 11) {
	Edit33->Text = (pow (E31c,2.0) ) / E32a;
	}
	return;

}
//---------------------------------------------------------------------------

void __fastcall TForm1::BitBtn21Click(TObject *Sender)
{
	double E34,E35;
	E34 = Edit34->Text.ToDouble();
	E35 = Edit35->Text.ToDouble();
	Edit36->Text = 2 * M_PI * E34 * E35 ;

}
//---------------------------------------------------------------------------




